home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Factory / Constants.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-16  |  858 b   |  34 lines
  1. {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  2.   TechInsite Pty. Ltd. 
  3.   PO Box 429, Abbotsford, Melbourne. 3067 Australia
  4.   Phone: +61 3 9419 6456
  5.   Fax:   +61 3 9419 1682
  6.   Web:   www.techinsite.com.au
  7.   EMail: peter_hinrichsen@techinsite.com.au
  8.  
  9.   Created: 01/06/1999
  10.  
  11.   Notes: Application wide constants used in the factory demo
  12.  
  13. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
  14. unit Constants;
  15.  
  16. interface
  17.  
  18. const
  19.  
  20.   // Report names
  21.   cgStrReportNameListing       = 'Address listing' ;
  22.   cgStrReportNameMailingLabels = 'Address mailing labels' ;
  23.   cgStrReportNameDataExport    = 'Data export' ;
  24.  
  25.   // Animals
  26.   cgStrAnimalDog               = 'Dog' ;
  27.   cgStrAnimalCat               = 'Cat' ;
  28.   cgStrAnimalBird              = 'Bird' ;
  29.  
  30. implementation
  31.  
  32. end.
  33.  
  34.